SuperHack/SuperHack CD.bin/SCRIPTZ/BLACKD.ZIP/ALIASES.INI

INI File | 1997-03-12 | 19KB | 351 lines

[Aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/k /kick # $$1
n7=/q /query $$1
n8=/hop /part # | /join #$$1
n9=/send /dcc send $1 $2
n10=/chat /dcc chat $1
n11=/ping /ctcp $$1 ping
n12=/sf7 /onotice [ WallOPS / $+ $chan $+ ] *$+
n13=/sf8 /omsg [ WallOPS / $+ $chan $+ ] *$+
n14=/online /ame has been online for %minutes minutes and %hours  hours
n15=/f5 /ignore *!*@* | /timer3 0 30  /echo *** Everyone is being ignored. Hit f6 to undo!.
n16=/f6 /ignore -r *!*@* | /timer3 off
n17=count {
n18=  echo 4 There are a total of $nick(0,#) people in this channel. $+ $opnick (0,#) OP'ed / $+ $nopnick(0,#) Not OP'ed
n19=}
n20=/raverflod /timer 3 1 /msg = $+ $me nick $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) | /timer 3 2 /msg = $+ $me PRIVMSG $$* : VERSION
n21=/nol /raw -q privmsg $me : DCC CHAT CHAT 3464372325 6667£
n22=/net /raw -q privmsg $me : DCC CHAT CHAT 3464372325 6667£
n23=Repk {
n24=  if (%pars == %repter) { ban -u10 $chan $nick 3 |  kick $chan $nick º╗í½º []baz▀ot[] Dont Repeat! We Heard you the first time ! (10 seconds ban) []baz▀ot[] º╗í½º }
n25=  else { writeini $mircdir $+ rep.ini %chnm $address($nick,4) %pars | ck1 }
n26=}
n27=Ck1 {
n28=  %caps = 0 | %capspa = 0
n29=  %capsrm = $remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($parms,!),@),%),$),^),&),$chr(35)),$chr(63)),$chr(41)),$chr(40)),$chr(32)),=),-,),_),+)
n30=  :start
n31=  inc %capspa
n32=  if (%capspa == $len(%capsrm)) { goto end }
n33=  elseif ($asc($mid(%capspa,1,%capsrm)) isnum 65-90) { inc %caps 1 | goto start }
n34=  else { goto start }
n35=  :end
n36=  %capsnum = $len(%capsrm)
n37=  %capsaltot = %caps * 100 | %capstot = %capsaltot / %capsnum
n38=  if (($len(%capsrm) > %maxletters) && (%capstot >= %maxpercent)) {
n39=    if ($me isop $chan) { kick $chan $nick º╗í½º []baz▀ot[] Caps aRe Wayyy Lame. . . ( $+ %capstot $+ % Caps used.) []baz▀ot[] º╗í½º }
n40=    else { notice $nick Stop Shouting !!! Caps are SO lame ! ( $+ %capstot $+ % Caps used.) }
n41=  }
n42=  unset %caps*
n43=}
n44=/chaninfo {
n45=  if ($chan(#).topic == $null) { set %topic 12<none> }
n46=  else { set %topic 12 $+ $chan(#).topic }
n47=  if ($chan(#).mode == $null) { set %mode 12<none> }
n48=  else { set %mode 12 $+ $chan(#).mode }
n49=  if ($chan(#).key == $null) { set %key 12<none> }
n50=  else { set %key 12 $+ $chan(#).key }
n51=  if ($chan(#).limit == $null) { set %limit 12<none> }
n52=  else { set %limit 12 $+ $chan(#).limit }
n53=  msg $chan 4Channel Info for $chan $+ :
n54=  msg $chan 3Topic: %topic
n55=  msg $chan 3Mode: %mode
n56=  msg $chan 3Key: %key
n57=  msg $chan 3Limit: %limit
n58=  msg $chan 4***** 1,15-=1,14[4,1 ╖▀ú├⌐]{-Tδ]{╖ 1,14]1,15=- 4*****
n59=}
n60=/init /who #
n61=/Vote {
n62=  set %voters á
n63=  set %vno 0
n64=  set %vyes 0
n65=  set %vtime $?="How many secs till times over?"
n66=  set %vtopic $?="Whats the Voting Topic?"
n67=  if ((%vtime == $null) || (%vtopic == $null)) { //echo 4 $active Voting ABORTED !! | halt }
n68=  say 3VoTiNG BooTH OpenED!
n69=  enable #vote
n70=  say 12][4Topic: %vtopic $+ 12][
n71=  say 12][4Options: YES or NO 12][
n72=  say 12][4Type: ^YES or ^NO 12][
n73=  say 12][4Time Left: %vtime secs12][
n74=  say á1,15-=1,14[4,1 ╖▀ú├⌐]{-Tδ]{╖ 1,14]1,15=-
n75=  /timer 1 %vtime  /voteover
n76=}
n77=/voteover {
n78=  disable #vote
n79=  unset %voters
n80=  say 3VoTiNG BooTH ClosED!
n81=  say 12][ $+ $sum(%vyes,%vno) have Voted ( $+ $percent($nick(0,$chan),$sum(%vno,%vyes)) $+ ) 12][
n82=  say 12][4Voting Topic: %vtopic $+ 12][
n83=  say 12][4 %vyes Said 4YES12][
n84=  say 12][4 %vno Said 4NO12][
n85=  if (%vyes > %vno) { /say The Result is 4YES }
n86=  elseif (%vyes < %vno) { /say The Result is 4NO }
n87=  else { /say 4There is NO result The YES are equal to the NO }
n88=  unset %vno | /unset %vyes | /unset %vtime | /unset %vtopic
n89=  say á1,15-=1,14[4,1 ╖▀ú├⌐]{-Tδ]{╖ 1,14]1,15=-
n90=}
n91=/iwclr /disable #idlemonitor #idlekick #idleguard #idleopnotice #idlectcp | /timers off | /set %iwtimer 1000 | /rlevel -r =321 | /write -c \mirc\idletmr.log | /echo =IW=> All timers stopped. IdleWatcher user level cleared. All IdleWatching halted. | /write -s#idlemonitor \grpreadr.txt #IdleMonitor #IdleMonitor is disabled | /write -s#idlekick \grpreadr.txt #idlekick #IdleKick is disabled | /write -s#idleguard \grpreadr.txt #idleguard #IdleGuard is disabled | /write -s#idleopnotice \grpreadr.txt #idleopnotice #IdleOpNotice is disabled | /write -s#idlectcp \grpreadr.txt #idlectcp #IdleCtcp is disabled
n92=/iwstat /echo =IW=> IdleWatcher Status: | /echo IdleWatched users: | /ulist =321 | /echo $read -s#idlemonitor \grpreadr.txt | /echo $read -s#idlekick \grpreadr.txt | /echo $read -s#idleguard \grpreadr.txt | /echo $read -s#idleopnotice \grpreadr.txt | /echo $read -s#idlectcp \grpreadr.txt | /echo =IW=> Current idle limit %iwlimit seconds.
n93=/iwlimit /echo =IW=> Current idle limit %iwlimit seconds.
n94=/iwlimitset /set %iwlimit $$?="Enter new idle time limit in seconds:" | /echo =IW=> Idle time limit reset to $! seconds.
n95=/iwlog /run \pfe\pfe.exe \mirc\idlelog.txt
n96=/iwnt /run \pfe\pfe.exe \mirc\idletmr.log
n97=/iwhlp /echo $read -l1 \mirc\idleqhlp.ply | /echo $read -l2 \mirc\idleqhlp.ply | /echo $read -l3 \mirc\idleqhlp.ply | /echo $read -l4 \mirc\idleqhlp.ply | /echo $read -l5 \mirc\idleqhlp.ply | /echo $read -l6 \mirc\idleqhlp.ply | /echo $read -l7 \mirc\idleqhlp.ply |
n98=/iwhlpt /echo =IW=> $read -s $+ $$1 \mirc\idlethlp.ply
n99=/iwmonon /enable #idlemonitor | /disable #idlekick #idleguard | /echo =IW=> IdleMonitor is now on. Users joining channel will be IdleWatched. You will be messaged when IdleWatched users exceed idle limit. If IdleKick is switched on, user will be kicked when idle limit reached. | /write -s#idlemonitor \grpreadr.txt #idlemonitor #IdleMonitor is ACTIVE | /write -s#idlekick \grpreadr.txt #idlekick #IdleKick is disabled | /write -s#idleguard \grpreadr.txt #idleguard #IdleGuard is disabled | /echo $read -s#idlekick \grpreadr.txt  | /echo $read -s#idleguard \grpreadr.txt
n100=/iwmonoff /disable #idlemonitor | /echo =IW=> IdleMonitor is now disabled. | /echo $read -s#idlekick \grpreadr.txt | /echo $read -s#idleguard \grpreadr.txt | /write -s#idlemonitor \grpreadr.txt #idlemonitor #IdleMonitor is disabled
n101=/iwkon /enable #idlekick | /echo =IW=> IdleKick is now switched ON !! IdleWatched users exceeding idle limit will be KICKED !! | /write -s#idlekick \grpreadr.txt #idlekick #IdleKick is ACTIVE
n102=/iwkoff /disable #idlekick | /echo =IW=> IdleKick is disabled. | /write -s#idlekick \grpreadr.txt #idlekick #IdleKick is disabled
n103=/iwkmsg /echo =IW=> " $+ %iwkmsg $+ " is the current IdleKick message. | /set %iwkmsg $$?="Enter new IdleKick message?" | /echo =IW=> New IdleKick message reads " $+ $! $+ ".
n104=/iwgrdon /enable #idleguard | /echo =IW=> IdleGuard is now switched ON !!  User activity will reset timers. IdleWatching is CONSTANT !! | /write -s#idleguard \grpreadr.txt #idleguard #IdleGuard is ACTIVE
n105=/iwgrdoff /disable #idleguard | /echo =IW=> IdleGuard is disabled. Timers are not reset. | /write -s#idleguard \grpreadr.txt #idleguard #IdleGuard is disabled
n106=/iwtagon  /echo $read -s#idlekick \grpreadr.txt | /echo $read -s#idleguard \grpreadr.txt | $read -siwtagon1 \mirc\idletag.cmd | $read -siwtagon2 \mirc\idletag.cmd | $read -siwtagon3 \mirc\idletag.cmd
n107=/iwtagoff $read -s $+ $$1 \mirc\idletmr.log | /write -ds $+ $1 \mirc\idletmr.log | /ruser =321 $$1 | /echo =IW=> IdleWatching of $$1 is cancelled
n108=/iwmtagon $read -siwmtagon \mirc\idletag.cmd | $read -siwmtagon2 \mirc\idletag.cmd | $read -siwmtagon2 \mirc\idletag.cmd
n109=/iwtmroff $read -s $+ $$?="Enter nick for IdleWatcher timer cancel:" \mirc\idletmr.log | /write -ds $+ $! \mirc\idletmr.log | /ruser =321 $! | /echo =IW=> IdleWatching of $! is cancelled
n110=/iwopnoticeon /enable #idleopnotice | /echo =IW=> IdleOpNotice is now ON !!  All channel ops will receive IdleWatcher notices. | /write -s#idleopnotice \grpreadr.txt #idleopnotice #IdleOpNotice is ACTIVE
n111=/iwopnoticeoff /disable #idleopnotice | /echo =IW=> IdleOpNotice is now disabled.  Channel ops do not receive IdleWatcher notices. | /write -s#idleopnotice \grpreadr.txt #idleopnotice #IdleOpNotice is disabled
n112=/iwctcpon /enable #idlectcp | /echo =IW=> IdleCtcp is now ON !!  All chanop level users now have IdleWatcher ctcp control access. | /write -s#idlectcp \grpreadr.txt #idlectcp #IdleCtcp is ACTIVE
n113=/iwctcpoff /disable #idlectcp | /echo =IW=> IdleCtcp is now disabled. Chanop level users do NOT have IdleWatcher ctcp control access. | /write -s#idlectcp \grpreadr.txt #idlectcp #IdleCtcp is disabled
n114=/iwulist /echo =IW=> IdleWatched users: | /ulist =321
n115=/iwrlevel /rlevel -r =321
n116=/iwrtmrset /timer $+ %iwtimer 1 %iwlimit /msg $!me =IW=> IdleWatcher reports that = $nick = was idle on $chan from $time until $!time
n117=/iwrtmrsetir /timer $+ %iwtimer 1 %iwlimit /msg $!me =IW=> IdleWatcher reports that = $parm6 = CONTINUED idling on $parm11 from $time until $!time
n118=/iwrtmrlog /write -il1 \mirc\idletmr.log $nick /timer $+ %iwtimer off
n119=/iwrtmrlogig /write -s $+ $nick \mirc\idletmr.log $nick /timer $+ %iwtimer off
n120=/iwrtmrlogir /write -s $+ $parm6 \mirc\idletmr.log $parm6 /timer $+ %iwtimer off
n121=/iwrtmrzero $read -s $+ $nick \mirc\idletmr.log | /write -ds $+ $nick \mirc\idletmr.log
n122=/iwrtmroffk $read -s $+ $knick \mirc\idletmr.log | /write -ds $+ $knick \mirc\idletmr.log
n123=/iwrmsglog /write -il1 \mirc\idlelog.txt $parm6 $parm8* on $day $date
n124=/iwrkmsglog /write -il1 \mirc\idlelog.txt Kicked $parm6 - $parm6 $parm8* on $day $date
n125=/iwrkcklog /write -il1 \mirc\kicklog.txt $knick kicked by $nick ( $+ $parms $+ ) at $time on $day $date. | /write \mirc\kicklog.txt -----
n126=/iwrhlp /play -tbasic $nick \mirc\idlerhlp.ply | /timer 1 5 /play -toptional $nick \mirc\idlerhlp.ply
n127=ircopscan {
n128=  if ($1 == $null) { echo 4 -s Error, type: /ircopscan [-e|-c] | halt }
n129=  if (# == $null) { set %window -s } | else { set %window # } | set %total 0 | write -c $mircdir $+ raw.txt
n130=  if ($1 == -e) { echo 6 This will scan the entire network and tell you the current visable IRCops online. | set %total 0 | set %option 1 | write $mircdir $+ raw.txt /echo 4 %window :ì: Listing IRCops! :ì: | .enable #ircopscan | who 0 o }
n131=  if ($1 == -c) {
n132=    if (# == $null) { echo 4 -s Error, try using this is the channel window. | halt }
n133=    msg # Master 3.1 is now listing visable IRCops on all networks.
n134=    set %total 0 | set %option 2 | write $mircdir $+ raw.txt /msg # :ì: Listing IRCops! :ì: | .enable #ircopscan | who 0 o
n135=  }
n136=}
n137=/ece {
n138=  %c = *1
n139=  set %c $replace(%c,a,4a)
n140=  set %c $replace(%c,b,3B)
n141=  set %c $replace(%c,c,6C)
n142=  set %c $replace(%c,d,7D)
n143=  set %c $replace(%c,e,4e)
n144=  set %c $replace(%c,f,12F)
n145=  set %c $replace(%c,g,13G)
n146=  set %c $replace(%c,h,6H)
n147=  set %c $replace(%c,i,4i)
n148=  set %c $replace(%c,j,J)
n149=  set %c $replace(%c,k,3K)
n150=  set %c $replace(%c,l,L)
n151=  set %c $replace(%c,m,4M)
n152=  set %c $replace(%c,n,6N)
n153=  set %c $replace(%c,o,4o)
n154=  set %c $replace(%c,p,12P)
n155=  set %c $replace(%c,q,Q)
n156=  set %c $replace(%c,r,13R)
n157=  set %c $replace(%c,s,7S)
n158=  set %c $replace(%c,t,T)
n159=  set %c $replace(%c,u,4u)
n160=  set %c $replace(%c,v,V)
n161=  set %c $replace(%c,w,12W)
n162=  set %c $replace(%c,x,7X)
n163=  set %c $replace(%c,y,Y)
n164=  set %c $replace(%c,z,6z)
n165=  set %c $replace(%c,?,12┐15?)
n166=  say %c
n167=  unset %c
n168=}
n169=/bac {
n170=  unset %final
n171=  unset %endreverse
n172=  set %sections $token(0,32,*1)
n173=  :revstart
n174=  if (%sections == 0) goto revend
n175=  set %reverseme $token(%sections,32,*1)
n176=  set %length $len(%reverseme)
n177=  set %backtext $mid(%length,1,%reverseme)
n178=  dec %length 1
n179=  :backstart
n180=  if (%length == 0) goto backend
n181=  set %tempback $mid(%length,1,%reverseme)
n182=  set %backtext %backtext $+ %tempback
n183=  dec %length 1
n184=  goto backstart
n185=  :backend
n186=  set %reversed_text %backtext
n187=  set %temp %reversed_text
n188=  set %final %final %temp
n189=  dec %sections 1
n190=  goto revstart
n191=  :revend
n192=  set %endreverse %final
n193=  say %final
n194=}
n195=/bg { %num = 1 | unset %msg  | %msg =  | %color = p
n196=  :start
n197=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
n198=  if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
n199=  :add
n200=  if $mid(%num,1, *1) != $null {
n201=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n202=    inc %num
n203=  goto start  }
n204=  say %msg
n205=}
n206=/cc { %num = 1 | unset %msg  | %msg =  | %color = p
n207=  :start
n208=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
n209=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
n210=  :add
n211=  if $mid(%num,1, *1) != $null {
n212=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n213=    inc %num
n214=  goto start  }
n215=  say %msg
n216=}
n217=/ec {
n218=  set %ftalk *1
n219=  %ftalk = $replace(%ftalk,a,2σ)
n220=  %ftalk = $replace(%ftalk,b,3■)
n221=  %ftalk = $replace(%ftalk,c,4╟)
n222=  %ftalk = $replace(%ftalk,d,5╨)
n223=  %ftalk = $replace(%ftalk,e,6δ)
n224=  %ftalk = $replace(%ftalk,f,7F)
n225=  %ftalk = $replace(%ftalk,g,8G)
n226=  %ftalk = $replace(%ftalk,h,9H)
n227=  %ftalk = $replace(%ftalk,i,10ε)
n228=  %ftalk = $replace(%ftalk,j,11J)
n229=  %ftalk = $replace(%ftalk,k,12K)
n230=  %ftalk = $replace(%ftalk,l,13ú)
n231=  %ftalk = $replace(%ftalk,m,14M)
n232=  %ftalk = $replace(%ftalk,n,15±)
n233=  %ftalk = $replace(%ftalk,o,2°)
n234=  %ftalk = $replace(%ftalk,p,3╢)
n235=  %ftalk = $replace(%ftalk,q,4Q)
n236=  %ftalk = $replace(%ftalk,r,5«)
n237=  %ftalk = $replace(%ftalk,s,6º)
n238=  %ftalk = $replace(%ftalk,t,7T)
n239=  %ftalk = $replace(%ftalk,u,8╡)
n240=  %ftalk = $replace(%ftalk,v,9V)
n241=  %ftalk = $replace(%ftalk,w,10\\')
n242=  %ftalk = $replace(%ftalk,x,11╫)
n243=  %ftalk = $replace(%ftalk,y,12Ñ)
n244=  %ftalk = $replace(%ftalk,z,12Z)
n245=  %ftalk = $replace(%ftalk,!,4!)
n246=  %ftalk = $replace(%ftalk,?,4?)
n247=  %ftalk = $replace(%ftalk,*,5*)
n248=  %ftalk = $replace(%ftalk,^,6^)
n249=  %ftalk = $replace(%ftalk,$,7$)
n250=  %ftalk = $replace(%ftalk,@,9@)
n251=  %ftalk = $replace(%ftalk,&,10&)
n252=  %ftalk = $replace(%ftalk,",11")
n253=  %ftalk = $replace(%ftalk,<,12<)
n254=  %ftalk = $replace(%ftalk,>,13>!)
n255=  SAY %ftalk
n256=}
n257=/e {
n258=  set %ftalk *1
n259=  %ftalk = $replace(%ftalk,a,σ)
n260=  %ftalk = $replace(%ftalk,b,▀)
n261=  %ftalk = $replace(%ftalk,c,⌐)
n262=  %ftalk = $replace(%ftalk,d,╨)
n263=  %ftalk = $replace(%ftalk,e,δ)
n264=  %ftalk = $replace(%ftalk,f,F)
n265=  %ftalk = $replace(%ftalk,g,G)
n266=  %ftalk = $replace(%ftalk,h,H)
n267=  %ftalk = $replace(%ftalk,i,ε)
n268=  %ftalk = $replace(%ftalk,j,J)
n269=  %ftalk = $replace(%ftalk,k,K)
n270=  %ftalk = $replace(%ftalk,l,ú)
n271=  %ftalk = $replace(%ftalk,m,M)
n272=  %ftalk = $replace(%ftalk,n,±)
n273=  %ftalk = $replace(%ftalk,o,°)
n274=  %ftalk = $replace(%ftalk,p,╢)
n275=  %ftalk = $replace(%ftalk,q,Q)
n276=  %ftalk = $replace(%ftalk,r,«)
n277=  %ftalk = $replace(%ftalk,s,º)
n278=  %ftalk = $replace(%ftalk,t,t)
n279=  %ftalk = $replace(%ftalk,u,╡)
n280=  %ftalk = $replace(%ftalk,v,V)
n281=  %ftalk = $replace(%ftalk,w,\\')
n282=  %ftalk = $replace(%ftalk,x,╫)
n283=  %ftalk = $replace(%ftalk,y,Ñ)
n284=  %ftalk = $replace(%ftalk,z,Z)
n285=  say %ftalk
n286=}
n287=/r {
n288=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n289=  :loop
n290=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i)
n291=  inc %p
n292=  if ( $mid(%p,1,%i) != á) { inc %c }
n293=  if ( %c > 6 ) { set %c 1 }
n294=  if ( $mid(%p,1,%i) != $null ) { goto loop }
n295=  say %o
n296=  unset %o %i %p %c
n297=}
n298=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
n299=  :start
n300=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
n301=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
n302=  :add
n303=  if $mid(%num,1, *1) != $null {
n304=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n305=    inc %num
n306=  goto start  }
n307=  say %msg
n308=}
n309=/bw { %num = 1 | unset %msg  | %msg =  | %color = p
n310=  :start
n311=  if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
n312=  if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add }
n313=  :add
n314=  if $mid(%num,1, *1) != $null {
n315=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n316=    inc %num
n317=  goto start  }
n318=  say %msg
n319=}
n320=/wr { %num = 1 | unset %msg  | %msg =  | %color = p
n321=  :start
n322=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n323=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
n324=  :add
n325=  if $mid(%num,1, *1) != $null {
n326=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n327=    inc %num
n328=  goto start  }
n329=  say %msg
n330=}
n331=/rg { %num = 1 | unset %msg  | %msg =  | %color = p
n332=  :start
n333=  if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add }
n334=  if %color == y  { %num2 = 4 | %num3 = 9 | %color = p | goto add }
n335=  :add
n336=  if $mid(%num,1, *1) != $null {
n337=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+  
n338=    inc %num
n339=  goto start  }
n340=  say %msg
n341=}
n342=on {
n343=  /inc %opsnotice 1
n344=  /.onotice # 4,1[# $+ %opsnotice $+ ]9,1[ $+ $chan $+ ][ Ops Only ]4,1[# $+ %opsnotice $+ ] *1
n345=  /echo -a  9,1Message has been sent to the Ops of4,1< # $+ >
n346=}
n347=/cs /me there are $nick(0,#) ppl in this channel, $nopnick(0,#) not oped, $opnick(0,#) oped